home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 05.zip
/
BS1 part 5
/
GigaMem.adf
/
Install-GigaMem
< prev
next >
Wrap
Text File
|
1992-07-14
|
7KB
|
344 lines
; $VER: GigaMem_Install 2.0 (11-04-1992)
; GigaMem Hard Drive Installation Script
(complete 0)
;=============================================================================
; English strings
(set #ask-GigaMem-dir
(cat
"In which disk or drawer should a drawer \"GigaMem\" "
"be created where all files will be copied?"
)
)
(set #ask-GigaMem-dir-help
(cat
"Here you specify, where you want to install GigaMem "
"and all support files. A drawer \"GigaMem\" will "
"be created, so you select \"DH0:\" to install GigaMem "
"in a drawer \"DH0:GigaMem\".\n\n"
)
)
(set #prompt-GigaMem
(cat
"This will create a new drawer called \"GigaMem\" and "
"will copy the following files and drawers."
)
)
(set #prompt-GigaMem-help
(cat
"GigaMem - is the program file.\n"
"GigaMem-Startup.info - startup icon for WBStartup.\n"
"GigaMem.Prefs - is the default program database.\n"
"GigaMemPrefs - is the preferences program file.\n"
"LastMinute.doc - contains last changes to the manual.\n\n"
)
)
(set #bool-Startup
(cat
"\nInstall GigaMem to start automatically after reboot?"
"\n\nThis will install GigaMem-Startup in SYS:WBStartup."
)
)
(set #prompt-Startup
(cat
"\nInstalling files needed for automatical startup..."
)
)
(set #bool-Startup-help
(cat
"\nThis will install GigaMem-Startup in SYS:WBStartup."
)
)
(set #prompt-Programmer
(cat
"Do you want to copy the files for Programmers too?\n"
"This will create a drawer \"Programmer\" and copy "
"all files needed to build an application using "
"VMem.Library."
)
)
(set #prompt-Programmer-help
(cat
"\nThe directoy Programmer includes all files needed "
"to use VMem.Library for own programming projects.\n\n"
)
)
(set #ask-Library-dir
(cat
"In which disk or drawer should\n"
"VMem.Library be installed?\n"
"Select Help for information on the library."
)
)
(set #ask-Library-dir-help
(cat
"The VMem.Library allows applications "
"to use Virtual Memory most efficiently. "
"This ensures maximum compatibility and speed.\n\n"
"The library must be located in one of the LIBS: "
"directories so the Operating System can find it.\n\n"
)
)
(set #prompt-Library
(cat "This will install\n\"VMem.Library\"\nin your System.")
)
;=============================================================================
; German strings
(if (= @language "deutsch")
(
(set #ask-GigaMem-dir
(cat
"Auf welchem Gerät, in welcher Schublade soll "
"eine neue Schublade GigaMem erstellt werden, in "
"die alle Programmdateien installiert werden?"
)
)
(set #ask-GigaMem-dir-help
(cat
"Sie geben hier den Ort an, wo \"GigaMem\" und all "
"dazugehörenden Dateien installiert werden. "
"Eine Schublade \"GigaMem\" wird eingerichtet, "
"Sie brauchen also nur \"DH0:\" anzugeben um "
"GigaMem in einer Schublade \"DH0:GigaMem\" zu installieren.\n\n"
)
)
(set #prompt-GigaMem
(cat
"Eine Schublade \"GigaMem\" wird eingerichtet und "
"folgende Dateien werden in diese Schublade kopiert."
)
)
(set #prompt-GigaMem-help
(cat
"GigaMem - Das Programm.\n"
"GigaMem-Startup.info - Startpiktogramm für WBStartup.\n"
"GigaMem.Prefs - Mitgelieferte Programmdatenbank.\n"
"GigaMemPrefs - Das Einstellungsprogramm.\n"
"LastMinute.doc - Letzte Änderungen zum Handbuch.\n\n"
)
)
(set #bool-Startup
(cat
"\nGigaMem bei einem Neustart automatisch starten?"
"\n\nEs wird GigaMem-Startup in der Schublade SYS:WBStartup "
"installiert."
)
)
(set #prompt-Startup
(cat
"\nKopiere Dateien, die für den automatischen "
"Start benötigt werden..."
)
)
(set #bool-Startup-help
(cat
"\nEs wird GigaMem-Startup in der Schublade SYS:WBStartup "
"installiert."
)
)
(set #prompt-Programmer
(cat
"Wollen Sie die Dateien für Programmierer auch "
"installieren?\n"
"Eine Schublade \"Programmer\" wird eingerichtet "
"und alle Dateien, die zum Benutzen der VMem.Library "
"nötig sind, werden kopiert."
)
)
(set #prompt-Programmer-help
(cat
"Die Schublade \"Programmer\" enthält alle Dateien, "
"die zum Benutzen der VMem.Library in eigenen Projekten "
"nötig sind.\n\n"
)
)
(set #ask-Library-dir
(cat
"Auf welchem Gerät, in welcher Schublade soll "
"die VMem.Library installiert werden?\n"
"Wählen Sie Hilfe für weitere Informationen."
)
)
(set #ask-Library-dir-help
(cat
"Die VMem.Library erlaubt Programmen, virtuellen "
"Speicher für eigene Zwecke optimal zu benutzen. "
"Dies garantiert maximale Kompatibilät und "
"Geschwindigkeit.\n\n"
"Die VMem.Library muss in einer der LIBS: Schubladen "
"sein, damit das Betriebsystem sie finden kann.\n\n"
)
)
(set #prompt-Library
(cat "Installieren der \"VMem.Library\"\nim System.")
)
))
;=============================================================================
; Main 'Program'
; ask for destination drawer or partition for GigaMem etc.
(set GigaMem_dest
(tackon
(askdir
(prompt #ask-GigaMem-dir)
(help
#ask-GigaMem-dir-help
@askdir-help
)
(default @default-dest)
)
"GigaMem"
)
)
; at this point we have a valid destination, so we tell installer where
; the application will end up so the exit page will be correct -- also,
; the installation log file (if any) will be copied to the destination
(set @default-dest GigaMem_dest)
;copy all the program files from source to dest
(copyfiles
(prompt #prompt-GigaMem)
(source "GigaMem")
(dest GigaMem_dest)
(pattern "(GigaMem#?|LastMinute#?)")
(infos)
(confirm)
(help
#prompt-GigaMem-help
@copyfiles-help
)
)
; Fix default tool to GigaMem's path
(tooltype
(dest (tackon GigaMem_dest "GigaMem-Startup"))
(setdefaulttool (tackon GigaMem_dest "GigaMem"))
)
(complete 25)
;install GigaMem-Startup in SYS:WBStartup
(if (= (exists "SYS:WBStartup") 2) ; Drawer SYS:WBStartup exists?
(if (= 1
(askbool
(prompt #bool-Startup)
(help #bool-Startup-help)
))
(
(copyfiles
(prompt #prompt-Startup)
(source "GigaMem")
(dest "SYS:WBStartup")
(pattern "GigaMem-Startup.info")
(infos)
(confirm)
(help
#bool-Startup-help
@copyfiles-help
)
)
; Fix default tool to GigaMem's path
(tooltype
(dest "SYS:WBStartup/GigaMem-Startup")
(noposition)
(setdefaulttool (tackon GigaMem_dest "GigaMem"))
)
))) ; User wants to install for startup?
(complete 50)
;copy all the programer's files from source to dest
(if (<> (exists "GigaMem/Programmer") 0) ; Programmer DevKit?
(copyfiles
(prompt #prompt-Programmer)
(source "GigaMem")
(dest GigaMem_dest)
(pattern "Programmer#?")
(infos)
(confirm)
(help
#prompt-Programmer-help
@copyfiles-help
)
))
(complete 75)
; Test for existance of LIBS-USER/
(set VMemLib_defdest "SYS:Libs-User") ; Default directory Libs-User
(if (<> (exists VMemLib_defdest) 2) ; Relog Installation?
(set VMemLib_defdest "LIBS:") ; No -> LIBS:
)
; Test for existance of USER:LIBS
(if (<> (getassign "USER") "") ; Valid assignment USER:? (avoid req)
(if (= (exists "USER:LIBS") 2) ; Newer Relog Installation?
(set VMemLib_defdest "USER:LIBS") ; Yes -> Use USER:LIBS
)
)
; Get destination for vmem.library
(set VMemLib_dest
(askdir
(prompt #ask-Library-dir)
(help
#ask-Library-dir-help
@askdir-help
)
(default VMemLib_defdest)
)
)
; copy vmem.library
(copylib
(source "Libs/vmem.library")
(prompt #prompt-Library)
(confirm)
(dest VMemLib_dest)
(help
#ask-Library-dir-help
@copylib-help
)
)
(complete 100)
;cleanup
;done, so get out
(exit)